home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr48 / pas_0593.zip / KBD-LOCK.PAS < prev    next >
Pascal/Delphi Source File  |  1993-05-30  |  723b  |  24 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 308 of 346
  3. From : Steven Tallent                      1:3811/210.0         24 May 93  21:05
  4. To   : John Pittman
  5. Subj : Pause Key
  6. ────────────────────────────────────────────────────────────────────────────────
  7.  -=> Quoting John Pittman to All <=-
  8.  
  9.  JP> Does anyone know how to disable the pause key?
  10.  
  11. You can disable the whole keyboard like this:}
  12.  
  13. Procedure KeyboardEnable; {unlocks keyboard}
  14. Begin
  15.   Port[$21] := Port[$21] and 253;
  16.   end;
  17.  
  18. Procedure KeyboardDisable; {locks keyboard}
  19. Begin
  20.   Port[$21] := Port[$21] or 2;
  21.   end;
  22.  
  23. Of course, they can't input anything until you unlock it, but
  24. this should do it.